home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BigMax 17
/
BigMax nº 17.iso
/
APLICAT
/
PCM105CD
/
SECURE
/
DATA.Z
/
Sample.bis
< prev
next >
Wrap
Text File
|
1996-12-29
|
2KB
|
108 lines
start {
Set framefile=default
Set reference=topleft
menu item=1 caption="Stop sound" proc=stop_sound
menu item=2 caption="Access BackWeb site" proc=yellow
menu item=3 caption="Open Me!" proc=summon_notes
newSprite proc=sound
call float_up()
}
sound {
repeat {
Play file="sonar1.wav"
pause for 2 seconds
} until(FlagIsSet("end_sound"))
}
summon_notes {
menu item=3 caption="" proc=nothing
call notes()
End
}
float_up {
OnClick {
call summon_notes()
}
Show sequence=0 at (0,1000)
Animate toPixelOffset (0,-80) in 30 frames slowend=5
Animate in 120 frames slowstart=10 slowend=9
Animate toPixelOffset(400,0) in 30 frames slowstart=5 slowend=5
Animate to (400,1000) in 60 frames slowstart=9
End all
}
notes {
OnClick {
rect (180,137,231,163) does {
call note2()
# call sonar()
}
}
set reference=topleft
Show sequence=1 at (520,80)
NewSprite proc=sonar atpixeloffset (-150,190)
Pause forever
}
note2 {
OnClick {
rect (180,137,231,163) does {
call note3()
}
}
Show sequence=2 at (520,80)
pause forever
}
note3 {
OnClick {
rect (13,63,214,105) does {
call stop_sound()
}
}
Show sequence=3 at (520,80)
pause forever
}
red {
AccessWeb url="file://sub.htm"
End all
}
yellow {
AccessWeb url="http://www.backweb.com"
End all
}
sonar{
menu item=1 caption="Stop sound" proc=stop_sound
menu item=2 caption="Access BackWeb site" proc=yellow
OnClick
{
rect (173,21,188,37) does { call red() }
rect (239,34,254,49) does { call yellow() }
rect (52,167,91,188) does { End all }
}
Show sequence=4 Pause forever
}
stop_sound{
SetFlag "end_sound"
menu item=1 caption="Stop sound" proc=nothing
}